(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     11692,        408]
NotebookOptionsPosition[      8768,        306]
NotebookOutlinePosition[      9192,        322]
CellTagsIndexPosition[      9149,        319]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Guide", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["InterfacialInterfacialThinFilmNLS", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["InterfacialInterfacialThinFilmNLS`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["\<\
InterfacialThinFilmNLS/guide/Interfacial Thin Film Interference Model\
\>", "Categorization",
 CellLabel->"URI"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552],

Cell["XXXX", "Keywords",
 CellID->1251852827]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->795394057],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->802101],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->509823116],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->199884516],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->463951815],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->8237523],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->813936640],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["Interfacial Thin Film Interference Model", "GuideTitle",
 CellChangeTimes->{{3.600210584715082*^9, 3.600210586616085*^9}},
 CellID->942062912],

Cell["\<\
The interfacial thin film interference model is used to model all optical \
interference effects for the input beams and any internally generated fields \
for any interface-specific coherent nonlinear wavemixing experiment applied \
to thin film systems.  Interference effects are computed via the transfer \
coefficients, which rely on the transfer matrix formalism.\
\>", "GuideAbstract",
 CellChangeTimes->{{3.598636219114463*^9, 3.5986363632176647`*^9}, {
  3.5986369685815153`*^9, 3.5986370098845735`*^9}, {3.5986372285988817`*^9, 
  3.598637264511932*^9}, {3.6002121694083786`*^9, 3.600212187839404*^9}},
 CellID->2001916300]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "GuideFunctionsSection",
 CellID->1866139230],

Cell[CellGroupData[{

Cell["Transfer Coefficients", "GuideFunctionsSubsection",
 CellChangeTimes->{{3.5986358825429907`*^9, 3.5986358885029993`*^9}},
 CellID->43006761],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["InputTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/InputTransferC"]], 
  "InlineGuideFunction"],
 " \[LongDash] transfers an input field to an interfacial local field within \
a thin film system"
}], "GuideText",
 CellChangeTimes->{{3.5986359044740214`*^9, 3.5986359073540254`*^9}, {
  3.598635969228112*^9, 3.5986359692581124`*^9}, {3.5986360021401587`*^9, 
  3.598636069374253*^9}, {3.598636107707307*^9, 3.598636148520364*^9}, {
  3.598636430261759*^9, 3.598636450972788*^9}},
 CellID->203374175],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["OutputTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/OutputTransferC"]], 
  "InlineGuideFunction"],
 " \[LongDash] transforms a nonlinear polarization generated at an internal \
interface into an elecric field and propagates it out of the thin film system"
}], "GuideText",
 CellChangeTimes->{{3.5986359137150345`*^9, 3.5986359627181034`*^9}, {
  3.598636072315257*^9, 3.5986361029663*^9}, {3.5986364564137955`*^9, 
  3.59863650184686*^9}, {3.5986373583390636`*^9, 3.598637411820139*^9}},
 CellID->1463276848],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["InternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"]], 
  "InlineFormula"]
}], "InlineGuideFunctionListing",
 CellChangeTimes->{{3.5986363874286985`*^9, 3.5986363958497105`*^9}},
 CellID->58033752]
}, Open  ]],

Cell["\t", "GuideDelimiter",
 CellID->264564914],

Cell[CellGroupData[{

Cell["Other Frequently Used Functions", "GuideFunctionsSubsection",
 CellChangeTimes->{{3.598636589759984*^9, 3.598636603611003*^9}},
 CellID->266944964],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["NonlinearPolarization",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/NonlinearPolarization"]], 
  "InlineGuideFunction"],
 " \[LongDash] ",
 "performs the higher order dot product of the ",
 Cell[BoxData[
  FormBox["\[Chi]", TraditionalForm]], "InlineMath"],
 " tensor with the tensor product of input fields ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       StyleBox["\[CapitalEpsilon]",
        FontWeight->"Bold"], "1"], "\[TensorProduct]", 
      SuperscriptBox[
       StyleBox["\[CapitalEpsilon]",
        FontWeight->"Bold"], "2"]}], 
     RowBox[{"\[CenterEllipsis]", "\[TensorProduct]", 
      SuperscriptBox[
       StyleBox["\[CapitalEpsilon]",
        FontWeight->"Bold"], "n"]}]}]}], TraditionalForm]], "InlineMath"],
 " to arrive at the nonlinear polarization vector"
}], "GuideText",
 CellChangeTimes->{{3.5986366809061117`*^9, 3.5986367026471424`*^9}, 
   3.598636792410268*^9},
 CellID->369032780],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["PhaseMatchAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/PhaseMatchAngle"]], 
  "InlineGuideFunction"],
 " \[LongDash] calculate the phase-matched angle of the wave-mixed frequency"
}], "GuideText",
 CellChangeTimes->{{3.598636688406122*^9, 3.598636698177136*^9}, 
   3.598636833271325*^9, 3.5986375800183744`*^9},
 CellID->372329463],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["RefractionAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionAngle"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["FresnelA",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/FresnelA"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["FresnelL",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/FresnelL"]], "InlineFormula"]
}], "InlineGuideFunctionListing",
 CellChangeTimes->{{3.5986367226491704`*^9, 3.598636755289216*^9}},
 CellID->252732631]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "GuideTutorialsSection",
 CellID->415694126],

Cell[TextData[ButtonBox["Interfacial Nonlinear Spectroscopy of Thin Film \
Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:InterfacialThinFilmNLS/tutorial/Interfacial Nonlinear Spectroscopy \
of Thin Film Systems"]], "GuideTutorial",
 CellChangeTimes->{{3.5977787536555166`*^9, 3.597778764076335*^9}, {
  3.6002124441967645`*^9, 3.6002124535867777`*^9}, {3.6002126850841055`*^9, 
  3.600212689164111*^9}},
 CellID->63520561],

Cell[TextData[ButtonBox["Methods to Compute Input Transfer Coefficients",
 BaseStyle->"Link",
 ButtonData->
  "paclet:InterfacialThinFilmNLS/tutorial/Methods to Compute Input Transfer \
Coefficients"]], "GuideTutorial",
 CellChangeTimes->{{3.5986369351784687`*^9, 3.598636954099495*^9}},
 CellID->1885805579]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "GuideMoreAboutSection",
 CellID->23220180],

Cell[TextData[ButtonBox["Transfer Matrix Formalism",
 BaseStyle->"Link",
 ButtonData->
  "paclet:TransferMatrixFormalism/guide/Transfer Matrix Formalism"]], \
"GuideMoreAbout",
 CellChangeTimes->{{3.5986368903144054`*^9, 3.5986369023454227`*^9}, {
  3.600212357030642*^9, 3.600212357040642*^9}, {3.600212395242696*^9, 
  3.6002124001527023`*^9}},
 CellID->1567025153]
}, Open  ]],

Cell["Related Links", "GuideRelatedLinksSection",
 CellID->415694148]
},
WindowSize->{700, 770},
WindowMargins->{{Automatic, 242}, {Automatic, 61}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "GuidePageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 325, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[907, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[978, 41, 78, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 106, 2, 31, "Categorization",
 CellID->605800465],
Cell[1168, 49, 103, 2, 31, "Categorization",
 CellID->468444828],
Cell[1274, 53, 122, 3, 31, "Categorization"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1433, 61, 56, 1, 27, "KeywordsSection",
 CellID->1427428552],
Cell[1492, 64, 45, 1, 70, "Keywords",
 CellID->1251852827]
}, Closed]],
Cell[CellGroupData[{
Cell[1574, 70, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[1630, 73, 63, 2, 70, "Details",
 CellID->795394057],
Cell[1696, 77, 69, 2, 70, "Details",
 CellID->350963985],
Cell[1768, 81, 63, 2, 70, "Details",
 CellID->802101],
Cell[1834, 85, 71, 2, 70, "Details",
 CellID->509823116],
Cell[1908, 89, 61, 2, 70, "Details",
 CellID->199884516],
Cell[1972, 93, 61, 2, 70, "Details",
 CellID->463951815],
Cell[2036, 97, 61, 2, 70, "Details",
 CellID->8237523],
Cell[2100, 101, 78, 2, 70, "Details",
 CellID->813936640],
Cell[2181, 105, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2285, 112, 148, 2, 76, "GuideTitle",
 CellID->942062912],
Cell[2436, 116, 641, 10, 67, "GuideAbstract",
 CellID->2001916300]
}, Open  ]],
Cell[CellGroupData[{
Cell[3114, 131, 54, 1, 68, "GuideFunctionsSection",
 CellID->1866139230],
Cell[CellGroupData[{
Cell[3193, 136, 146, 2, 33, "GuideFunctionsSubsection",
 CellID->43006761],
Cell[3342, 140, 581, 13, 37, "GuideText",
 CellID->203374175],
Cell[3926, 155, 590, 12, 37, "GuideText",
 CellID->1463276848],
Cell[4519, 169, 495, 14, 23, "InlineGuideFunctionListing",
 CellID->58033752]
}, Open  ]],
Cell[5029, 186, 48, 1, 26, "GuideDelimiter",
 CellID->264564914],
Cell[CellGroupData[{
Cell[5102, 191, 153, 2, 33, "GuideFunctionsSubsection",
 CellID->266944964],
Cell[5258, 195, 1037, 30, 53, "GuideText",
 CellID->369032780],
Cell[6298, 227, 411, 10, 23, "GuideText",
 CellID->372329463],
Cell[6712, 239, 644, 19, 23, "InlineGuideFunctionListing",
 CellID->252732631]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7405, 264, 62, 1, 70, "GuideTutorialsSection",
 CellID->415694126],
Cell[7470, 267, 430, 9, 70, "GuideTutorial",
 CellID->63520561],
Cell[7903, 278, 308, 6, 70, "GuideTutorial",
 CellID->1885805579]
}, Open  ]],
Cell[CellGroupData[{
Cell[8248, 289, 62, 1, 70, "GuideMoreAboutSection",
 CellID->23220180],
Cell[8313, 292, 367, 8, 70, "GuideMoreAbout",
 CellID->1567025153]
}, Open  ]],
Cell[8695, 303, 69, 1, 70, "GuideRelatedLinksSection",
 CellID->415694148]
}
]
*)

(* End of internal cache information *)

